      module global
      implicit none
      
      integer :: nnt,R,istep
      Real(8) :: L,pres_L,pres_R,rho_L,rho_R,v_L,v_R,gam,CFL,cd
	  Real(8) ,Allocatable :: x(:), vcor(:)
	  Real(8) ,Allocatable :: Pres(:), Rho(:), v(:), v_sound(:),U(:,:),F(:,:)
	  Real(8) ,Allocatable :: M(:,:),Resid(:,:),DU(:,:)
	  Real(8) Total_time,Delta_t,Tmax
      
      !Real(8),allocatable :: vres(:,:),vmg_n(:,:),vmg_np1(:,:),du(:,:),vmgnp1(:,:),Dia_M_n(:,:),Dia_M_np1(:,:),MU(:,:)
      !Real(8) vcore_n(2),vcore_np1(2),vflue(2,3),wxe(2),vsole(2,3),vprese(2),dxe,vrese(2,3)
      !Real(8),allocatable :: vresj(:,:),vsolj(:,:),dm(:,:),IPIV(:),vduh(:,:),vdul(:,:)
      !Real(8),allocatable :: vduh3(:,:),vdul3(:,:),uimax(:,:),uimin(:,:),fec(:,:)
      !Real(8),allocatable :: pmax(:,:),pmin(:,:),qmax(:,:),qmin(:,:),rmax(:,:),rmin(:,:)
      !Real(8),allocatable :: ae(:,:),ae1(:,:),ae2(:,:),ae3(:,:),Var_ae(:)
      end module global